home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 March / inter@ivo 1997-03.iso / cybint14 / bin / main.dxr / 00089.ls < prev    next >
Encoding:
Text File  |  1997-02-18  |  252 b   |  16 lines
  1. on mouseUp
  2.   global act
  3.   sound playFile 2, "..\som\ovo.wav"
  4.   startTimer()
  5.   repeat while the timer < 20
  6.     nothing()
  7.   end repeat
  8.   onVis(28)
  9.   startTimer()
  10.   repeat while the timer < 20
  11.     nothing()
  12.   end repeat
  13.   set act to 1
  14.   onVis(31, 33)
  15. end
  16.